home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / nt_dsp1.lzh / NT_DSP1.MSA / LFLTS / LATFIR2.ASM < prev    next >
Assembly Source File  |  1989-01-24  |  1KB  |  41 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Lattice FIR Filter Macro (modified modulo count).
  7. ; 
  8. ; Last Update 08 Aug 86   Version 1.0
  9. ;
  10. latfir2 macro   order
  11. latfir2 ident   1,0
  12. ;
  13. ;       LATTICE FIR
  14. ;
  15. ;       Lattice FIR filter macro
  16. ;
  17. ;       Input value in register B, output value in register B.
  18. ;
  19. ;       Macro call:     latfir2 order
  20. ;               order   - order of filter (number of K coefficients)
  21. ;
  22. ;       Alters Data ALU Registers:
  23. ;       x0      y0      y1      a       b
  24. ;
  25. ;       Alters Address Registers:
  26. ;       r0      r4
  27. ;
  28. ;       Alters Program Control Registers:
  29. ;       pc      sr
  30. ;
  31. ;       Uses 2 locations on stack
  32. ;
  33.   move           b,x:(r0)+    y:(r4)+,y0  ;sv B as fst st., mv fst k
  34.   do    #order,_endlat
  35.   move           x:(r0),a     b,y1        ;get state, set t for mul by k
  36.   macr  y1,y0,a  a,x0                     ;t*k+s, copy s
  37.   macr  x0,y0,b  a,x:(r0)+    y:(r4)+,y0  ;s*k+t, sv st., nxt k
  38. _endlat
  39.   move           x:(r0)-,x0   y:(r4)-,y0  ;adjust pointers
  40.   endm
  41.